home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / A / 10⁄92 & 11⁄92 Mailing / SwapMMUModeƒ / StripPCAddress.a < prev    next >
Encoding:
Text File  |  1992-08-31  |  323 b   |  16 lines  |  [TEXT/MPS ]
  1. ;
  2.     Print    Push,Off
  3.     Include    'Traps.a'
  4.     Print    Pop
  5. ;
  6. ;
  7.             
  8. StripPCAddress        PROC EXPORT
  9.                                       MOVE.L (SP)+,D0            ; Pop return address in DO
  10.                                        _StripAddress       ; Strip the address
  11.                                        MOVE.L D0,-(SP)     ; Push back the return address
  12.                                       RTS                                    ; That's it.
  13.                                     ENDPROC
  14.  
  15.                                     End
  16.